﻿Imports System.ComponentModel

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class ucDiplomaTypeDetails
    Inherits UcBaseEditControl
    Implements IUcEditControl

#Region "Designer"
    'UserControl overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        
        ' Add any initialization after the InitializeComponent() call.
        
    End Sub
    Friend WithEvents DiplomaSuperTypeIdlbl As System.Windows.Forms.Label
    Friend WithEvents DiplomaSuperTypeId As org.codegen.win.controls.CGComboBox

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.DiplomaTypelbl = New System.Windows.Forms.Label()
        Me.DiplomaType = New org.codegen.win.controls.CGTextBox(Me.components)
        
        Me.DiplomaSuperTypeIdlbl = New System.Windows.Forms.Label()
        Me.DiplomaSuperTypeId = New org.codegen.win.controls.CGComboBox(Me.components)
        
        Me.SuspendLayout()
        '
        'DiplomaTypelbl
        '
        Me.DiplomaTypelbl.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DiplomaTypelbl.Location = New System.Drawing.Point(5, 15)
        Me.DiplomaTypelbl.Name = "DiplomaTypelbl"
        Me.DiplomaTypelbl.Size = New System.Drawing.Size(120, 20)
        Me.DiplomaTypelbl.TabIndex = 0
        Me.DiplomaTypelbl.Text = "Diploma Name"
        Me.DiplomaTypelbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'DiplomaType
        '
        Me.DiplomaType.AssociatedLabel = Me.DiplomaTypelbl
        Me.DiplomaType.BackColor = System.Drawing.Color.LightYellow
        Me.DiplomaType.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
        Me.DiplomaType.ErrProvider = Nothing
        Me.DiplomaType.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DiplomaType.FormatPattern = Nothing
        Me.DiplomaType.isMandatory = True
        Me.DiplomaType.Location = New System.Drawing.Point(135, 15)
        Me.DiplomaType.MaxLength = 255
        Me.DiplomaType.MaxValue = Nothing
        Me.DiplomaType.MinValue = Nothing
        Me.DiplomaType.Name = "DiplomaType"
        Me.DiplomaType.Size = New System.Drawing.Size(490, 21)
        Me.DiplomaType.TabIndex = 0
        '
        
        '
        
        '
        'DiplomaSuperTypeIdlbl
        '
        Me.DiplomaSuperTypeIdlbl.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DiplomaSuperTypeIdlbl.Location = New System.Drawing.Point(25, 43)
        Me.DiplomaSuperTypeIdlbl.Name = "DiplomaSuperTypeIdlbl"
        Me.DiplomaSuperTypeIdlbl.Size = New System.Drawing.Size(100, 20)
        Me.DiplomaSuperTypeIdlbl.TabIndex = 9
        Me.DiplomaSuperTypeIdlbl.Text = "Diploma Type"
        Me.DiplomaSuperTypeIdlbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'DiplomaSuperTypeId
        '
        Me.DiplomaSuperTypeId.AssociatedLabel = Me.DiplomaSuperTypeIdlbl
        Me.DiplomaSuperTypeId.BackColor = System.Drawing.Color.LightYellow
        Me.DiplomaSuperTypeId.ErrProvider = Nothing
        Me.DiplomaSuperTypeId.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DiplomaSuperTypeId.isMandatory = True
        Me.DiplomaSuperTypeId.Location = New System.Drawing.Point(135, 42)
        Me.DiplomaSuperTypeId.MaxLength = 255
        Me.DiplomaSuperTypeId.MaxValue = Nothing
        Me.DiplomaSuperTypeId.MinValue = Nothing
        Me.DiplomaSuperTypeId.Name = "DiplomaSuperTypeId"
        Me.DiplomaSuperTypeId.Size = New System.Drawing.Size(345, 21)
        Me.DiplomaSuperTypeId.TabIndex = 8
        '
        'ucDiplomaTypeDetails
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.AutoValidate = System.Windows.Forms.AutoValidate.EnableAllowFocusChange
        Me.Controls.Add(Me.DiplomaSuperTypeIdlbl)
        Me.Controls.Add(Me.DiplomaSuperTypeId)
        Me.Controls.Add(Me.DiplomaTypelbl)
        Me.Controls.Add(Me.DiplomaType)
        Me.Name = "ucDiplomaTypeDetails"
        Me.Size = New System.Drawing.Size(996, 485)
        
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

	
	
	Friend WithEvents DiplomaTypelbl As System.Windows.Forms.Label
	Friend WithEvents DiplomaType As CGTextBox


#End Region

#Region "Properties"

#End Region

#Region "Methods"

    ''' <summary>
    ''' Fills the controls on the screen from data in the object
    ''' </summary>
    ''' <remarks></remarks>
	Public Sub _loadData() Handles Me.evLoadObjectData


		Dim mo As DiplomaType = DirectCast(Me.ModelObject(), DiplomaType)
		Me.DiplomaType.value = mo.DiplomaType
		Me.DiplomaSuperTypeId.Value = mo.DiplomaSuperTypeId




	End Sub

	''' <summary>
	''' Loads the object from the database and then sets the proeperties 
	''' of the object from values on the controls
	''' </summary>
	''' <remarks></remarks>
	Public Sub _loadToObject() Handles Me.evLoadToObject

		Dim mo As DiplomaType = DirectCast(Me.ModelObject, DiplomaType)
		mo.setDiplomaType(Me.DiplomaType.Text)
		mo.DiplomaSuperTypeId = Me.DiplomaSuperTypeId.intValue

	End Sub

	Public Sub _InitializeControl() Handles Me.InitializeControl

		If Me.isInitialized = False Then
			'setup datasources here

			Me.DiplomaSuperTypeId.DataSource = DiplomaSuperTypeDataUtils.findList
			Me.DiplomaSuperTypeId.ValueMember = "DiplomaSuperTypeId"
			Me.DiplomaSuperTypeId.DisplayMember = "DiplomaSuperTypeCode"

			Me.isInitialized = True
		End If

	End Sub

#End Region


End Class


